home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS066.dsk / RECIPE CALORIE COST.bas < prev    next >
BASIC Source File  |  2012-02-16  |  14KB  |  320 lines
  1. 190  POKE 770,173: POKE 771,0: POKE 772,3: POKE 773,32: POKE 774,218: POKE 775,253: POKE 776,173: POKE 777,1: POKE 778,3: POKE 779,32: POKE 780,218: POKE 781,253: POKE 782,96
  2. 200  GOSUB 10000
  3. 1000  REM  PROGRAM SELECTION PAGE 
  4. 1010  HOME : VTAB 12: PRINT  TAB( 10)"HOME ECONOMICS PACK I"
  5. 1020  FOR I = 1 TO 2000: NEXT I
  6. 1021  VTAB 15: PRINT  TAB( 19)"BY": PRINT : PRINT  TAB( 14)"PAUL A. PAGE "
  7. 1022  PRINT : PRINT : PRINT  TAB( 16)"EDITED BY": PRINT : PRINT  TAB( 7)"DICK HUBERT AND VAL GOLDING"
  8. 1023  FOR I = 1 TO 3000: NEXT I: HOME 
  9. 1125  PRINT : PRINT 
  10. 1130  PRINT  TAB( 10)"OPTIONS AVALIABLE:": PRINT : PRINT  TAB( 15)"(1) RECIPE CONVERTER "
  11. 1140  PRINT 
  12. 1200  PRINT  TAB( 15)"(2) CALORIE COUNTER "
  13. 1250 : PRINT 
  14. 1300  PRINT  TAB( 15)"(3) RECIPE COST CALCULATOR"
  15. 1350  PRINT  TAB( 15)"(4) EXIT PROGRAM"
  16. 1400  INPUT "ENTER THE OPTION BY NUMBER ";OO
  17. 1500  ON OO GOTO 2000,4000,5600,9000
  18. 1900  GOTO 1400
  19. 2000  HOME : PRINT : PRINT : PRINT : PRINT "WHEN ENTERING THE RECIPE PLEASE FOLLOW"
  20. 2010  PRINT "THE FOLLOWING ";
  21. 2020  POKE 50,127
  22. 2030  PRINT "INSTRUCTIONS"
  23. 2040  POKE 50,255
  24. 2050  PRINT 
  25. 2060  PRINT "1 ";
  26. 2070  PRINT "ENTER FRACTIONAL AMOUNTS AS A DECIMAL"
  27. 2080  PRINT "AMOUNT."
  28. 2090  PRINT 
  29. 2100  PRINT "2 ";
  30. 2110  PRINT "WHEN ENTERING THE AMOUNT OF AN"
  31. 2120  PRINT "INGREDIENT,TYPE THE NUMBER IN FIRST"
  32. 2130  PRINT "THEN HIT THE RETURN BEFORE TYPING IN"
  33. 2140  PRINT "UNIT OF MEASUREMENT"
  34. 2150  PRINT 
  35. 2160  PRINT 
  36. 2170  PRINT 
  37. 2180  PRINT "PLEASE ENTER THE NAME OF THIS RECIPE "
  38. 2190  PRINT 
  39. 2200  INPUT Z$
  40. 2210  PRINT 
  41. 2220  PRINT 
  42. 2230  DIM A$(200)
  43. 2240  DIM B(200)
  44. 2250  DIM C$(200)
  45. 2260  PRINT "HOW MANY INGREDIENTS ARE IN"
  46. 2270  INPUT "THIS RECIPE ";N
  47. 2280  PRINT 
  48. 2290  FOR I = 1 TO N
  49. 2295  PRINT 
  50. 2300  PRINT "INGREDIENT ";I
  51. 2310  PRINT "PLEASE ENTER THE AMOUNT, AND THE"
  52. 2320  PRINT "UNIT OF MEASURE ";
  53. 2330  INPUT B(I),A$(I)
  54. 2340  INPUT "WHAT IS THE INGREDIENT ";C$(I)
  55. 2350  NEXT I
  56. 2360  PRINT 
  57. 2370  PRINT 
  58. 2380  PRINT "HOW MANY PEOPLE DOES YOUR"
  59. 2390  INPUT "ORIGINAL RECIPE SERVE ";O
  60. 2400  PRINT 
  61. 2410  PRINT "HOW MANY PEOPLE DO YOU NEED"
  62. 2420  INPUT "TO SERVE FOR THIS MEAL ";S
  63. 2425  HOME 
  64. 2430  PRINT 
  65. 2440  PRINT "TO SERVE ";S" PEOPLE WITH THE"
  66. 2450  PRINT Z$;" RECIPE"
  67. 2460  PRINT "PLEASE USE THE FOLLOWING NEW RECIPE"
  68. 2470  PRINT 
  69. 2480  FOR I = 1 TO N
  70. 2490  GOSUB 2670
  71. 2500  PRINT R;" ";A$(I);" OF ";C$(I)
  72. 2510  IF I >10  THEN 268
  73. 2520  NEXT I
  74. 2530  PRINT 
  75. 2540  PRINT "DO YOU WANT TO CHANGE THE NUMBER"
  76. 2550  PRINT "OF SERVINGS <CTRL-G><CTRL-G><CTRL-G> ";
  77. 2560  POKE 50,127
  78. 2570  PRINT "Y\N"
  79. 2580  POKE 50,255
  80. 2590  INPUT U2$
  81. 2600  IF U2$ = "Y"  THEN 2400
  82. 2610  IF U2$ = "YES"  THEN 2400
  83. 2620  PRINT 
  84. 2630  PRINT "THANK YOU FOR LETTING ME HELP YOU "
  85. 2640  PRINT "WITH YOUR MEAL PLANING.  CALL ON ME"
  86. 2650  PRINT "      AGAIN ANY TIME,  GOODBYE...."
  87. 2660  GOTO 2810
  88. 2670  LET R = (B(I)/O) *S: RETURN 
  89. 2680  INPUT "TO CON'T LIST HIT ANY KEY & RETURN ";U5$
  90. 2690  FOR I = 11 TO N
  91. 2700  GOSUB 2670
  92. 2710  PRINT R;" ";A$(I);" OF ";C$(I)
  93. 2720  IF I >20  THEN 275
  94. 2730  NEXT I
  95. 2740  GOTO 2530
  96. 2750  INPUT "TO CON'T LIST HIT ANY KEY & RETURN";U5$
  97. 2760  FOR I = 21 TO N
  98. 2770  GOSUB 267
  99. 2780  PRINT R;" ";A$(I);" OF ";C$(I)
  100. 2790  NEXT I
  101. 2800  GOTO 2530
  102. 2810  GOTO 1023
  103. 4000  REM    CALORIE COUNTING PROGRAM
  104. 4001  HOME 
  105. 4010  REM    START = FRE(0) 8188
  106. 4020  VTAB 10
  107. 4030  PRINT  TAB( 08): PRINT "CALORIE COUNTING PROGRAM"
  108. 4060  FOR I = 1 TO 2000: NEXT I
  109. 4070  SPEED= 200
  110. 4080  REM    PROGRAM STARTS HERE
  111. 4090  POKE 34,0
  112. 4100  HOME : VTAB 3
  113. 4110  PRINT "THIS PROGRAM ALLOWS YOU TO DETERMINE"
  114. 4120  PRINT "RAPIDLY THE CALORIE VALUE OF ANY FOOD"
  115. 4130  PRINT "OR OF A LIST OF FOODS SUCH AS A MEAL."
  116. 4140  PRINT 
  117. 4150  PRINT "IT ALSO CAN BE USED TO FIND OUT THE "
  118. 4160  PRINT "CALORIE VALUE OF A SERVING OF FOOD "
  119. 4170  PRINT "FROM YOUR FAVORITE RECIPE."
  120. 4180  PRINT 
  121. 4190  PRINT "IF YOU WANT TO KNOW THE CALORIE VALUE"
  122. 4200  PRINT "OF A SERVING IN A RECIPE THEN TYPE"
  123. 4210  FLASH : PRINT "CHECK";: NORMAL : PRINT " WHEN ASKED FOR FOOD ITEM."
  124. 4215  PRINT "PLEASE ENTER ALL FOOD ITEMS": PRINT "IN THE SINGULAR"
  125. 4220  PRINT : PRINT "IF YOU WANT TO CLEAR THE COUNTERS AND"
  126. 4230  PRINT "THE PRINT OUT LIST THEN TYPE ";: FLASH : PRINT "CLEAR": NORMAL 
  127. 4240  PRINT 
  128. 4250  PRINT "PLEASE TYPE ";: FLASH : PRINT "STOP";: NORMAL : PRINT " WHEN YOU HAVE FINISHED USING THE PROGRAM"
  129. 4260  PRINT : PRINT "IF YOU WANT A PRINT OUT OF ALL THE"
  130. 4270  PRINT "DATA IN FILE TYPE ";: FLASH : PRINT "TOTAL";: NORMAL : PRINT " PLEASE."
  131. 4280  PRINT 
  132. 4290  POKE 50,63
  133. 4300  PRINT "HIT ANY KEY TO CONTINUE.": GET U1$
  134. 4310  NORMAL 
  135. 4320  HOME : PRINT "FOOD ITEM","AMOUNT","CALORIES"
  136. 4330  POKE 34,15
  137. 4340  VTAB 16
  138. 4350  PRINT : PRINT 
  139. 4360  INPUT "WHAT FOOD ARE YOU LOOKING FOR ";F$
  140. 4370  HOME 
  141. 4380  REM   
  142. 4390  REM    HERE WE CHECK DATA FOR INPUT
  143. 4400  REM   
  144. 4410  RESTORE 
  145. 4420  IF F$ = "STOP"  THEN 5460
  146. 4430  IF F$ = "CLEAR"  THEN T = 0:R = 0: POKE 34,0: GOTO 4320
  147. 4440  IF F$ = "CHECK"  THEN  GOTO 4790
  148. 4450  IF F$ = "TOTAL"  THEN Y = 0: GOTO 4940
  149. 4460  FOR I = 1 TO 150
  150. 4470  READ M$,M1$,M
  151. 4480  IF F$ = M$  THEN 4620
  152. 4490  NEXT I
  153. 4500  REM   
  154. 4510  REM    HERE WE TELL USER NO
  155. 4520  REM   
  156. 4530  PRINT "<CTRL-C><CTRL-G><CTRL-G><CTRL-G><CTRL-G> I AM ";: FLASH : PRINT "SORRY": NORMAL : PRINT "BUT ";F$;" IS NOT IN MY MEMORY BANK"
  157. 4540  PRINT 
  158. 4550  GOTO 4350
  159. 4560  REM   
  160. 4570  REM    RETURN FOR MORE INPUT
  161. 4580  REM   
  162. 4590  REM    
  163. 4600  REM    PRINT DATA
  164. 4610  REM   
  165. 4620  PRINT 
  166. 4630  POKE 34,0
  167. 4640 Y = Y +1
  168. 4650  IF Y = 14  THEN  HOME :Y = 1: PRINT "FOOD ITEM","AMOUNT","CALORIES"
  169. 4660  VTAB Y +1
  170. 4670  PRINT M$,M1$; TAB( 34)M
  171. 4680  POKE 34,15
  172. 4690  VTAB 16
  173. 4700  HOME 
  174. 4710  PRINT " HOW MANY ";M1$;" ARE YOU GOING TO USE ";: INPUT N
  175. 4720 N1 = N *M
  176. 4730 T = T +N1
  177. 4740 R = R +N1
  178. 4750  PRINT 
  179. 4760  PRINT "CALORIES SO FAR THIS RECIPE "R
  180. 4770  PRINT "TOTAL CALORIES SO FAR "T
  181. 4780  GOTO 4350
  182. 4790  REM    FIGURE RECIPE SERVING
  183. 4800  REM   
  184. 4810  HOME : VTAB 16
  185. 4820  PRINT "HOW MANY PORTIONS DOES THIS RECIPE "
  186. 4830  INPUT "MAKE  ";P
  187. 4840 R1 = R/P
  188. 4850  PRINT : PRINT 
  189. 4860  PRINT "EACH PORTION SERVED BY THIS RECIPE"
  190. 4870  PRINT "CONTAINS ";R1" CALORIES"
  191. 4880  PRINT : PRINT 
  192. 4890  PRINT "DO YOU HAVE ANY MORE FOOD ITEMS TO ADD"
  193. 4900  PRINT "TO THIS RECIPE SERVING  Y/N ";: INPUT U2$
  194. 4910  IF U2$ = "Y"  THEN 4750
  195. 4920  LET R = 0:R1 = 0
  196. 4930  GOTO 4750
  197. 4940  REM   
  198. 4950  REM    TOTAL PRINT OUT SUB
  199. 4960  REM    TO SET COUNTING LOOP TO SAME VALUE AS 1300
  200. 4970  REM   
  201. 4980  POKE 34,0
  202. 4990  HOME 
  203. 5000  SPEED= 255
  204. 5010  PRINT "ITEM","AMOUNT","CALORIES"
  205. 5020  POKE 34,2
  206. 5030  FOR I = 1 TO 150
  207. 5040  REM    
  208. 5050  REM    DATA COUNTER FOR TEST
  209. 5060  REM    TOTAL IN O MUST BE IN LINES 1300 AND 3100
  210. 5070 O = O +1
  211. 5080  READ M$,M1$,M
  212. 5090  PRINT M$,M1$; TAB( 34)M
  213. 5100 K = K +1
  214. 5110  IF K = 18  THEN  PRINT : PRINT "HIT ANY KEY TO CONTINUE LIST": GET U2$: HOME :K = 0
  215. 5120  NEXT I
  216. 5130  POKE 34,0
  217. 5140  PRINT : PRINT 
  218. 5150 K = 0
  219. 5160  PRINT "THIS IS ALL THE DATA IN MY MEMORY BANK"
  220. 5170  PRINT "HIT ANY KEY TO RETURN TO MENU": GET U2$
  221. 5180  RESTORE 
  222. 5190  SPEED= 200
  223. 5200  GOTO 4080
  224. 5210  REM   
  225. 5220  REM    DATA STARTS HERE
  226. 5230  REM    TO SET COUNTING NUMBER IN SEARCH LOOP OF 1300 (FOR I=1 TO N)  
  227. 5240  REM    
  228. 5250  REM    BEVERAGES
  229. 5260  DATA     COKE,6 OZ,78,GINGERALE,8 OZ,80,PEPSI,8 OZ,106,MILKSHAKE,10 OZ,421,TOMATO JUICE,3.5 0Z,19,V8 JUICE,3.5 OZ,17
  230. 5270  DATA    EGGNOG,6 OZ,233,SKIM MILK,8 OZ,116,MILK,8 OZ,159,WHITE BREAD,1 SLICE,62,DOUGHNUT,1 AVE,125,PANCAKES,2-4'CAKES,322
  231. 5280  DATA    FRENCH TOAST, 1 SLICE,183,BREAD,1 SLICE, 62,HAMBURGER ROLL,1 EA,89,WAFFLE,1 5 IN,209,MILK CHOCOLATE,1 OZ BAR,152,CEREAL,1 CUP,100,BAKED BEANS,1 CUP,275
  232. 5290  DATA      CHOC CH COOKIE,1EA,51,VANILLA WAFER,1 EA,15,ANIMAL CRACKER,1EA,9,BUTTER,1 TBSP,100,AMERICAN CHEESE,1OZ,112,COTTAGE CHEESE,1/2 CUP, 120 
  233. 5300  DATA    CREAM CHEESE,1 OZ,105,MARGARINE,1 TBSP,72,BROWNIE,1 EA,146,CUPCAKE,1 EA,175,JELLO, 1/2 CUP,81,ICE CREAM,1/3 CUP,174, ICE MILK,1/3 CUP,137
  234. 5310  DATA      CHERRY PIE,1 SLICE,258,APPLE PIE,1 SLICE,255,POPSICLE, 1-3 OZ, 95,SHERBERT,1/3 CUP,152,COOL WHIP, 1 TBSP,16,DIET SAL DRESS,1 TBSP,10,EGGS,1 LGE,88 
  235. 5320  DATA    FRIED EGG, 1 EA,120,SCRAMBLED EGG,1 EA,135,TUNA FISH,3 1/2 OZ,145,CRABMEAT,4 OZ,86,LOBSTER,12 OZ,308,FRIED SHRIMP, 3 1/2 OZ,225
  236. 5330  DATA    CRAB CAKE,1 EA, 110,TUNA SALAD,1 SERV,170,APPLE, 1 EA,70,BANANA,1 EA,85,GRAPEFRUIT, HALF, 41,GRAPES,3 1/2 OZ,69,ORANGE,1 EA,73,PINEAPPLE,1 SLICE,39
  237. 5340  DATA    RAISINS,3 1/2 OZ, 289,STRAWBERRIES, 1 EA,3,WATERMELON,1/16 MELON,234,BARBECUE SAUCE,1 OZ,26,BREAD CRUMBS, 1/2 CUP,175,APPLE JUICE,4 OZ, 56,CRANBERRY JUICE,3 1/2 OZ, 65
  238. 5350  DATA    LEMON JUICE, 1 TBSP,4,LEMONADE,8 OZ,103,ORANGE JUICE, 4 OZ, 58,PINEAPPLE JUICE, 6 OZ, 104,BACON,1 SLICE,50,STEAK,6 OZ, 200,HAM,2 SLICES,167
  239. 5360  DATA    CALVES LIVER,1 SLICE,74,CHICKEN LIVER,1 EA, 74,HAMBURGER, 4 OZ,224,PORK CHOP, 6 OZ, 314, FRITOS,1 OZ,164,DORITOS,1 OZ,149,POPCORN,1 CUP ,54
  240. 5370  DATA    POTATO CHIPS, 1 EA, 13, PRETZELS, 3  1/2 OZ, 390,ALMONDS, 1 OZ DRY RST, 180,WALNUTS,1 TBSP,49,PEANUTS, 1 OZ DRY RST, 179 
  241. 5380  DATA    HOT DOG, 1 EA, 124, HOT DOG ROLL, 1 EA,113,PIZZA,1 SLICE,185,CRANBERRY SAUCE, 1 TBSP, 29,MUSTARD,1 TEAS,11,OLIVES,2,15,SWEET PICKLE,1 TBSP,15
  242. 5390  DATA    SUGAR,1 TEAS,46,SUGAR,1 CUP,770,APPLESAUCE,1/2 CUP,116,AVOCADOS,1/2 EA,185,BACON,4 OZ,696,GREEN BEANS,1/2 CUP,16,LINA BEANS,1/2 CUP,89,CHUCK STEAK,4 OZ,329,T BONE STEAK,4 OZ,539
  243. 5400  DATA    BEETS,1/2 CUP,27,BOLOGNA,4 OZ,312,BROCCOLI,1 CUP SPEARS,39,PEANUTBUTTER,1 TEAS,82 ,CANTALOPE,1/2 MELON,58,CARROTS,1 MEDIUM,21,CASHEW NUTS,1/4 LB,639,CATSUP,1 TBLS,18,CELERY,1 STALK,7,CHICKEN,4 OZ BROILED,155,COLESLAW,4 OZ,108 
  244. 5410  DATA    SALTINES,1 OZ,123,CUCUMBER,1 MEDIUM,29,EGGPLANT,1/4 LB BOIL,19,FLOUR,1 CUP,449,GRAPEFRUIT,1/2 MEDIUM,58,GRAPE JUICE,6 OZ,122,CHEWING GUM,1 STICK,9,JELLIE-JAM,1 TEAS,55,LEMON,1 AVERAGE,19
  245. 5420  DATA    LETTUCE,1 HEAD 4 IN,59,LETTUCE,3 LEAVES,6,LIVERWURST,4 OZ,350,MACARONI,1 CUP,175,MUSHROOMS,1/2 LB,61,EGG NOODLES,1 CUP,200,SALAD OIL,1 TABL,124,ONION,1/2 LB,79,PEAR,1 AVE,100,PEAS,1/2 CUP,57
  246. 5430  DATA    PECANS,1 TEAS,51,GREEN PEPPER,1 AVERAGE,14,PICKLE RELISH,1 TEAS SWEET,21,POTATOE,1 SMALL,85,FRENCH FRIES,10 EACH,156,RICE,1 CUP,187,ROLLS,2 OZ EA,170,TARTAR SAUCE,1 TEAS,74,SAUSAGE,4 OZ,481,POLISH DOG,4 OZ,346,BEAN SOUP,1 CUP,
  247. 5440  DATA    CHICKEN SOUP,1 CUP,67,MUSHROOM SOUP,1 CUP,133,ONION SOUP,1 CUP,64,PEA SOUP,1 CUP,142,TOMADO SOUP,1 CUP,86,VEGETABLE SOUP,1 CUP,77,POTATO SOUP,1 CUP,179,SPAGHETTI,1 CUP W/SAUCE,172,SPINACH,1 CUP,43,ZUCCHINI,1 CUP,25
  248. 5450  DATA     TURKEY,4 OZ,221,TOMATOE,1 SMALL,22,MACARONI SAL,1 CUP,355,POTATO SALID,1 CUP,99
  249. 5460  POKE 34,0: HOME 
  250. 5470  VTAB 13
  251. 5480  PRINT "THANK YOU FOR CHECKING YOUR DIET WITH "
  252. 5490  PRINT 
  253. 5500  PRINT "US TODAY."
  254. 5510  PRINT 
  255. 5520  PRINT "        MUCH AS YOU LIKE."
  256. 5530  PRINT : PRINT  TAB( 9)
  257. 5550  GOTO 1023
  258. 5600  HOME : PRINT " THIS PROGRAM CALCULATES THE COST & COST"
  259. 5610  PRINT "PER SERVING OF A SINGLE RECIPE. FOR EACH"
  260. 6005  PRINT "INGREDIENT YOU MUST PROVIDE THE PURCHASE": PRINT "PRICE, THE AMOUNT PURCHASED, THE AMOUNT"
  261. 6010  PRINT : PRINT " USED IN THE RECIPE, AND THE NUMBER OF": PRINT : PRINT "RECIPE UNITS PER PURCHASE UNIT": PRINT : PRINT 
  262. 6020  PRINT 
  263. 6030  PRINT 
  264. 6040  REM    STATEMENTS 30 TO 180 REQUEST USER INPUT
  265. 6050  INPUT "NUMBER OF INGREDIENTS ";N
  266. 6060  PRINT 
  267. 6070  REM    LOOP TO REQUEST DATA FOR EACH INGREDIENT
  268. 6080  FOR I = 1 TO N
  269. 6090  PRINT "INGREDIENT ";I;":"
  270. 6100  PRINT "  COST FOR BULK UNIT IN STORE ";
  271. 6110  INPUT C
  272. 6120  PRINT "  NUMBER OF UNITS IN BULK";
  273. 6130  INPUT U
  274. 6140  PRINT "  NUMBER OF RECIPE UNITS PER BULK UNIT";
  275. 6150  INPUT F
  276. 6160  PRINT "   NUMBER OF RECIPE UNITS CALLED FOR";
  277. 6170  INPUT R
  278. 6180  REM    SUM COST OF EACH INGREDIENT PER AMOUNT USED
  279. 6190 P = P +C/U/F *R
  280. 6200  NEXT I
  281. 6210  PRINT 
  282. 6220  PRINT 
  283. 6230  PRINT " NUMBER OF SERVINGS";
  284. 6240  INPUT S
  285. 6250  PRINT 
  286. 6260  REM    ROUND OF COST TO NEAREST CENT, PRINT RESULTS
  287. 6270  PRINT "TOTAL COST FOR 1 RECIPE = $"; INT(P *100 +.5)/100
  288. 6280  PRINT "COST PER SERVING = $"; INT(P/S *100 +.5)/100
  289. 6290  PRINT 
  290. 6300  REM    CALCULATE ALTERNATIVE PRICE PER SERVING
  291. 6310  PRINT "CHANGE NUMBER OF SERVINGS Y/N"
  292. 6320  GET B$
  293. 6330  IF B$ = "Y"  THEN 6230
  294. 6340  IF B$ = "YES"  THEN 6230
  295. 6350  HOME 
  296. 6360  PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT 
  297. 6370  PRINT 
  298. 6380  PRINT " THANK YOU FOR USING THIS PROGRAM"
  299. 6390  PRINT 
  300. 6410  PRINT 
  301. 6430  GOTO 1023
  302. 9000  SPEED= 255: END 
  303. 10000  POKE 50,63: TEXT : HOME 
  304. 10010  VTAB 1: HTAB 2: PRINT "   ";: HTAB 9: PRINT "    ";: HTAB 17: PRINT "    ";: HTAB 25: PRINT " ";: HTAB 33: PRINT "     "
  305. 10020  PRINT " ";: HTAB 5: PRINT " ";: HTAB 9: PRINT " ";: HTAB 13: PRINT " ";: HTAB 17: PRINT " ";: HTAB 21: PRINT " ";: HTAB 25: PRINT " ";: HTAB 33: PRINT " "
  306. 10030  PRINT "     ";: HTAB 9: PRINT "    ";: HTAB 17: PRINT "    ";: HTAB 25: PRINT " ";: HTAB 33: PRINT "   "
  307. 10040  PRINT " ";: HTAB 5: PRINT " ";: HTAB 9: PRINT " ";: HTAB 17: PRINT " ";: HTAB 25: PRINT " ";: HTAB 33: PRINT " "
  308. 10050  PRINT " ";: HTAB 5: PRINT " ";: HTAB 7: PRINT " ";: HTAB 9: PRINT " ";: HTAB 15: PRINT " ";: HTAB 17: PRINT " ";
  309. 10060  HTAB 23: PRINT " ";: HTAB 25: PRINT "     ";: HTAB 31: PRINT " ";: HTAB 33: PRINT "     ";: HTAB 39: PRINT " "
  310. 10070  POKE 50,255: PRINT 
  311. 10080  PRINT "A       P       P       L       E": HTAB 2: PRINT "P       U       R       I       X"
  312. 10090  HTAB 3: PRINT "P       G       O       B       C": HTAB 4: PRINT "L       E       G       R       H"
  313. 10100  HTAB 5: PRINT "E       T       R       A       A": HTAB 14: PRINT "S       A       R       N"
  314. 10110  HTAB 15: PRINT "O       M       Y       G": HTAB 16: PRINT "U";: HTAB 40: PRINT "E";
  315. 10120  HTAB 17: PRINT "N": HTAB 18: PRINT "D"
  316. 10130  POKE 50,63: PRINT : PRINT : HTAB 10: PRINT "                   ": HTAB 10: PRINT "  P R E S E N T S  ": HTAB 10: PRINT "                   "
  317. 10140  POKE 50,255
  318. 10150  FOR I = 1 TO 2000: NEXT I
  319. 10155  CALL  -936
  320. 10156  RETURN